home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / comm / www / DNS.lha / GetMouseInput.lha / GetMouseInput / SampleScriptGLOBAL < prev    next >
Encoding:
Text File  |  1997-05-30  |  409 b   |  21 lines
  1. ; Example startup-sequence file using GetMouseInput V1.3 and environment
  2. ; variable
  3.  
  4. Assign ENV: RAM:
  5. Assign T: RAM:
  6. GetMouseInput GLOBAL
  7.  
  8. If $MouseInput EQ 1
  9.    Execute S:Startup1 ; Left mouse button pressed
  10. Else
  11.    If $MouseInput EQ 2
  12.       Execute S:Startup2 ; Right mouse button pressed
  13.    Else
  14.       Execute S:NormalStartup-Sequence ; No buttons pressed
  15.    EndIf
  16. EndIf
  17.  
  18. UnSetEnv MouseInput
  19.  
  20. EndCLI >NIL:
  21.